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i FACILITY: 
i ABSTRACT: 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Faanarckntee’ NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT tn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Fortran Support Library 


This module contains a condition handler for floating underflow 
exceptions, an exit handler to report the number of underflows 
at image exit, and an initialization procedure which establishes 
the condition handler for Fortran main programs. 


! ENVIRONMENT: Runs at any access mode - AST reentrant 
i AUTHOR: John A. Wheeler, CREATION DATE: 21-Aug-1981 

i MODIFIED BY: 

i 1-001 = Original. JAW 21-Aug-1981 
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FORSINIUND = Initialize Fortran underflow handl 


Declarations 
050 1 &SBTTL ‘Declarations’ 
$3) i SWITCHES 
B08 1 i 
0054 1 
Spee : SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL 
0087 1! 
058 1 ! LINKAGES: 
0059 1! 
0060 1! NONE 
0061 1! 
0062 1 ! TABLE OF CONTENTS: 
0065 1! 
0064 1 
0065 1 FORWARD ROUTINE 
0066 1 FORSINIT_UNDER; 
0067 1 
0068 1! 
0069 1 ! INCLUDE FILES: 
0070 1! 
0071 1 
0072 1 REQUIRE ‘RTLIN:RTLPSECT'; 
0167 1 
0168 1! 
0169 1 ! MACROS: 
0170 1! 
0171 1! NONE 
0172 1! 
0175 1 ! EQUATED SYMBOLS: 
0174 1! 
0175 1! NONE 
0176 1! 
0177 1°! FIELDS: 
0178 1! 
0179 1! NONE 
0180 1! 
0181 1 ! PSECTS: 
bias : 4 
0183 1 
0184 1 PSECT 
0185 1 PLIT = LIBSINITIALIZ ( READ, NOWRITE, NOEXECUTE, NOSHARE, NOPIC, 
BSS : CONCATENATE, GL SBAL. ALIGN (2), ADDRESSING _MODE (GENERAL) ); 
0188 1 !¢ 
ata 1! Make Hee erect contribution so LIBSINITIAL 
190 1 ! will call PORSINIT.ON ER, which will establish FORSUND 
0191 1! as default handler and make coroutine call back. 
Bias 1 ! used so that FORSINIT UNDER will be called before COM_S 
0193 1 ! address is in LIBSINITIALIZE psect. 
0194 1 !- 
0195 1 
0196 1 
0197 1 
0198 1 
0199 1 
0200 1 


ND 
VECT = UPLIT (FORSINIT_UNDER); 


'¢ 
! Now declare usual PSECTs 
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INIUND = Initialize Fortran underflow handl 16-Sep-1984 00:26:58 AX-11 Bliss-32 V4.0-74 P 4 
INIT_UNDER = Initialize underflow handling 13-80 8-138e 99:95:38 FORRTL. RCIFORINIUND .B 2s _ (3) 
ZSBTTL ‘FORSINIT_UNDER = Initialize underflow handling’ 
GLOBAL ROUTINE FORSINIT_UNDER ( 
CO_ROUT_INIT, 
CLT_CO_RouT 


++ 
FUNCTIONAL DESCRIPTION: 
i This routine is called by LIBSINITIALIZE during image startup. 
It establishes FORSUNDERFLOW_HANDLER as a default underflow 
exception handler and makes &@ coroutine call back to LIBSINITIALIZE. 
i CALLING SEQUENCE: 


ret_status.wlc.v = FORSINIT_UNDER (co_rout_init.ra.v 
cli_co_rout.ra.v | 


i FORMAL PARAMETERS: 


WDNAUEWN $C OONAUSWI—-OOD we 


' COMPLETION STATUS: (or ROUTINE VALUE:) 
As returned by main program via LIBSINITIALIZE. 
i SIDE EFFECTS: 


Makes a coroutine call back to LIBSINITIALIZE, thereby leaving 
the current frame on the stack. 


2 
23 
23 co_rout_init Address of coroutine within 
Sip LIBSINITIALIZE 
mk cli_co_rout Address of coroutine within CLI 
see (not used) 
24 
244 
245 
246 NONE 
247 ’ 
248 ! IMPLICIT OUTPUTS: 
249 

0 NONE 

4 

5 

6 


' 
' 
! 
' 
' 
! 
! 
! 
] 
' 
i 
' 
' 
i] 
‘ 
' 
' 
i IMPLICIT INPUTS: 
i 
' 
| 
' 
' 
' 
' 
1 
t 
' 
t 
' 
' 
' 
i] 
] 


ABLE 
FORSUNDERF LOW_HANDLER; 


'¢ 


: Make coroutine call back to LIBSINITIALIZE. 


RETURN (.CO_ROUT_INIT) (); 
END; ! End of routine FORSINIT_UNDER 
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1 
nitialize Fortran underflow handl 1b-se -1984 00:26:58 Ax-11 Bliss-32 V4.0-7 ° 
= Initialize underflow handling 14- Sep-19 4 99:95:35 age 33 


-TITLE FORSINIUND FORSINIUND - Initialize Fortran unde 
: rflow handl 
-IDENT \1-001\ 
-PSECT LIBSINITIALIZD_,NOWRT,NOEXE, GBL,2 
00000000" 00000 P.AAA: .ADDRESS FORSINIT_UNDER : 


VECT= P.AAA 
-EXTRN LIBSINITIALIZE, FORSUNDERFLOW_HANDLER 


-PSECT _FORSCODE,NOWRT, SHR, PIC,2 


0000 00000 «ENTRY FORSINIT_UNDER, Save nothing ; 0219 
6D 0006 CF ODE 90002 MOVAL ° ; 0263 
046 BC 00 FB 00007 CALLS #0, @CO_ROUT_INIT 3; 0272 
04 00008 RET 3 0274 
0000 O000C 1$: «WORD Save nothing : 0263 
7E 04 QOOOE CLRL -(SP) : 
5E DD 00010 PUSHL 5 
7E 04 AC 7D 00012 mMOVa 4(AP), =(SP) : 
000000006 00 03 FB 00016 CALLS #3, FORSUNDERFLOW_HANDLER : 
04 0001D RET 3 
; Routine Size: 30 bytes, Routine Base: _FORSCODE + 0000 
: 183 0275 #1 
: 184 are fl 1 END ! End of module FORSINIUND 
; «#185 277 O ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: LIBSINITIALIZD_ 4 NOVEC,NOWRT, RD ,NOEXE,NOSHR, GBL, REL, CON,NOPIC,ALIGN(2) 
; _FORSCODE 30 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=CFIELD. INITIAL OPTIMIZE) /NOTRACE/LIS#L1S8:FORINIUND/0B)=08$ :FORINIUND MSRC$:FORINIUND/UPDATE=(ENHS$:FORINIUND 


3; Size: 39 code + 4 data bytes 


FORRTL.SRCJFORINIUND. ‘ 231 (3) 
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1 ; 
| FORSINIUND FORSINIUND = Initialize Fortran underflow handl 16-Sep-1984 00:26:58 VAX-11 Bliss- 4.0-74 
Bei FOREINIT UNDER © Initiolice under? iow hondtang b-sep ee See Soh tieal 


Run Time: 88: ¢-0 
Elapsed Time: :07.4 
Lines/CPU Min: 436 
Lexemes/CPU-Min: 18761 

pemety Used: 17 pages 
Compilation Complete 
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